home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / passit.zip / PASSING.SLT < prev    next >
Text File  |  1988-10-08  |  293b  |  18 lines

  1. main()
  2. {
  3. str passit[20];
  4. str passwd[14];
  5. str message[50];
  6. clear_scr();
  7. passwd = _entry_pass;
  8. passit = passwd;
  9. strcat(passit, "^M^J");
  10. keyset(15616, 0, passit);
  11. message = "Your Password... ";
  12. strcat(message, passwd);
  13. strcat(message, " ...is in FK3.^M^J");
  14. prints(message);
  15. }
  16.  
  17.  
  18.